每逢年末，公司总要举办各种晚会、总结会，有一个环节也总是必不可少：幸运抽奖。在网上也可以下载很多抽奖软件，但不一定适合自已公司使用。所以今天 就用Excel做了一个超简单、实用的抽奖工具，希望对大家有用。

先看抽奖效果：

是不是很想用？使用方法很简单，简单几步就可以直接使用：

1、准备工作

抽奖工具下载后，打开时如果遇到安全提示，点击启用内容

把人员名单输入到“名单”工作表A列中

下载地址(百度网盘)：复制到电脑浏览器地址栏中打开

https://pan.baidu.com/s/12wmpzN23eeGnSkaKi8LG9w

然后在抽奖工作表中点一下“开始抽奖”按钮，准备工作完成。

2、抽奖

把光标放到需要抽奖的位置，比如特等奖，就选取D3单元格，然后按F9开始抽奖，需要停时松开F9键，幸运人员生成，点保存按钮中奖人名会输入到选取的单元格D3中，如果继续抽特等奖，就选D4....其他奖项同理

注意：为了防止重复中奖，在中奖后该人员会从“名单”工作表中删除，在测试时注意备份名单，以防正式抽奖时该人员不在A列。

制作这个抽奖工具，过程很简单，难的是制作思路，兰色想了很多天完成它。下面兰色就简单介绍一下制作过程：

1、两个公式

在抽奖表中设置了两个公式

A1单元格公式(作用是生成随机整数)

=RANDBETWEEN(1,COUNTA(名单!A:A))

A2单地格公式(作用是根据A1生成的随机数从名单表中用INDEX函数提取姓名)

=INDEX(名单!A:A,抽奖!A1)

2、在Excel表中插入一个背景图片

3、插入一个文本框，然后在编辑栏中输入公式= A2按回车结束，去掉背景色和边框颜色。

调大字体后放在背景图片上，就是显示的中奖人员

4、开始和保存按钮分别执行两段VBA代码。工作表标签右键 - 查看代码 - 单击模块，在右侧可以看到它们。

Sub 保存()

R = [a1]

ActiveCell = [a2]

Sheets("名单").Cells(R, 1).EntireRow.Delete

Application.EnableEvents = False

[a2] = ""

Application.EnableEvents = True

End Sub

Sub 开始()

Application.EnableEvents = False

[a2] = ""

Application.EnableEvents = True

End Sub

5、按钮是插入的矩形，右键执行宏，就可以关联代码

6、在VBA编辑器中双击抽奖工作表名称，在右侧可以看到事件代码。

Private Sub Worksheet_Calculate()

If [a2] = "" Then [a2] = "=INDEX(名单!A:A,抽奖!A1)"

End Sub

兰色说：对于不懂VBA的同学来说，后面制作过程可以略过，直接下载使用就可以了。有一点需要说明，这个无法内定，所以抽奖过程也是绝对公平的。

如果你是新同学，长按下面二维码 - 识别图中二维码 - 关注，就可以每天和我一起学Excel了。